home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 101 / Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso / pc / new_ugp.dxr / 00281_Text Slider Class.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  1.1 KB  |  48 lines
  1. property sliderSprite, sliderTop, sliderBottom, textDisplay, ancestor
  2.  
  3. on new me, paramList
  4.   set textDisplay to getProp(paramList, #textDisplay)
  5.   set sliderBottom to getProp(paramList, #sliderBottom)
  6.   set sliderSprite to getProp(paramList, #sliderSprite)
  7.   set sliderTop to the locV of sprite sliderSprite
  8.   puppetSprite(sliderSprite, 1)
  9.   return me
  10. end
  11.  
  12. on TurnOn me
  13.   put "grabbed slider"
  14.   set range to sliderBottom - sliderTop
  15.   repeat while the mouseDown
  16.     set yPos to the mouseV
  17.     if yPos < sliderTop then
  18.       set yPos to sliderTop
  19.     end if
  20.     if yPos > sliderBottom then
  21.       set yPos to sliderBottom
  22.     end if
  23.     set the locV of sprite sliderSprite to yPos
  24.     set offset to yPos - sliderTop
  25.     set percent to offset * 100 / range
  26.     ScrollPercent(textDisplay, percent)
  27.     updateStage()
  28.   end repeat
  29. end
  30.  
  31. on TurnOff me
  32. end
  33.  
  34. on reset me
  35.   set the locV of sprite sliderSprite to sliderTop
  36.   ScrollPercent(textDisplay, 0)
  37.   updateStage()
  38. end
  39.  
  40. on dispose me
  41.   puppetSprite(sliderSprite, 0)
  42.   set textDisplay to 0
  43.   if objectp(ancestor) then
  44.     dispose(ancestor)
  45.   end if
  46.   set ancestor to 0
  47. end
  48.